0 GOSUB10000:PRINT"[147]"
1 S=2049:FORI=1TO9E9:M=PEEK(S)+PEEK(S+1)  *256:L=PEEK(M+2)+PEEK(M+3)*256
2 PRINTL,M+4:S=M:IFPEEK(197)=64THENNEXT
3 :
5 :
10000 PRINT"[147]            MEMORY FINDER"
10002 PRINT" MEMORY FINDER WILL FIND THE LINE "
10004 PRINT"NUMBERS OF ANY PROGRAM IN MEMORY.  THE"
10006 PRINT"LINE NUMBERS ARE PRINTED IN THE LEFT"
10008 PRINT"COLUMN AND THE MEMORY ADDRESS OF THAT"
10010 PRINT"LINE IS PRINTED IN THE RIGHT COLUMN."
10012 PRINT" WHEN THE LINE NUMBERS BEGIN TO LOSE"
10014 PRINT"ANY SEMBLANCE OF ORDER, YOU CAN PRESS"
10016 PRINT"A KEY TO EXIT AND START OVER IF YOU"
10018 PRINT"WISH.":PRINT"            <PRESS A KEY>"
10019 POKE198,0:WAIT198,1:POKE198,0
10020 PRINT"[147]       1.  RUN MEMORY FINDER"
10022 PRINT"       2.  RETURN TO LOADSTAR"
10024 PRINT" WHICH ?";
10026 POKE198,0:WAIT198,1:GETA$
10028 IFA$<>"1"ANDA$<>"2"THEN                 POKE53280,RND(1)*15:GOTO10026
10030 IFA$="1"THENRETURN
10032 IFA$="2"THEN63020
10040 :
63000 REM  LINK BACK TO LOADSTAR
63005 PRINT"[147]WOULD YOU LIKE TO TRY IT AGAIN ?";
63007 QPOKE198,0:WAIT198,1:GETA$:IFA$<>"N"ANDA$<>"Y"THENPOKE53280,RND(1)*15:GOTO63007
63008 IFA$<>"N"ANDA$<>"Y"THENPOKE53280,RND(1)*15:GOTO63007
63010 IFA$="Y"THEN1
63020 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"        CHR$(34)",8":PRINT"RUN"
63022 POKE631,13:POKE632,13:POKE198,2:END